perm filename HEM.LIB[WHT,LSP] blob sn#746802 filedate 1984-05-12 generic text, type T, neo UTF8
@marker(library, Hem, Press, Dover)

@Form(Defhvar = "@Begin(Defenvironment)@Comment(Tabset?)@}
   @t[@Parm(Var)] @>[@i[@Hemlock Variable]]@\@}
   @Send(FunList {@t[@Parm(Var)] @>[@i[@Hemlock Variable]]@\⎇)@}
   @HVxindex@Parmquote(Var)@}
   @Imbed(Nolabel, undef '@Imbed(Varlabel,
                                  def <@Label{@Parm(Varlabel)-hvar⎇>,
                                  undef <@Label{@Parm(Var)-hvar⎇>)')@}
   @Begin(Defbody)@Tabclear ")

@Form(Defhvar1 = "@Begin(Undefbody)@Comment(Tabset?)@}
   @t[@Parm(Var)] @>[@i[@hemlock Variable]]@\@}
   @Send(FunList {@t[@Parm(Var)] @>[@i[@hemlock Variable]]@\⎇)@}
   @HVxindex@Parmquote(Var)@}
   @Imbed(Nolabel, undef '@Imbed(Varlabel,
                                  def <@Label{@Parm(Varlabel)-hvar⎇>,
                                  undef <@Label{@Parm(Var)-hvar⎇>)')@}
   @End(Undefbody)")
@Commandstring(Enddefhvar = "@End(Defbody)@End(Defenvironment)")
@Textform(HVxindex = "@Xindex(T {Hemlock variable⎇, X {@Parm(Text)⎇, P {@t[@Parm(Text)]⎇)@'")
@Textform(HVindexref = "@Xindexref(T {Hemlock variable⎇, X {@Parm(Text)⎇, P {@t[@Parm(Text)]⎇)@'")
@Textform(HVarref = '@w[@f["@Parm(Text)" ]@}
    @r[(page @Pageref(@Parm(Text)-hvar))]]@HVindexref@Parmquote(Text)')

@Form(Defcom = "@Begin(Defenvironment)@Comment(Tabset?)@}
   @t[@Parm(Fun) @Parm(Args, default <>)@Imbed(Keys, def < @key@!@Spreadkeys(@Parm(Keys))>)] @>[@i[Command]]@\
@Imbed(MoreKeys, def <@/@Spreadkeys(@Parm(MoreKeys))
>)@}
@Imbed(YetMoreKeys, def <@/@Spreadkeys(@Parm(YetMoreKeys))
>)@}
   @Send(FunList {@t[@Parm(Fun) @Parm(Args, default <>)@Imbed(Keys,
	def < @key@!@Spreadkeys(@Parm(Keys))>)] @>[@i[Command]]@\@Imbed(MoreKeys,
	def <
@/@t[@Spreadkeys(@Parm(MoreKeys))]>)@Imbed(YetMoreKeys,
	def <
@/@t[@Spreadkeys(@Parm(YetMoreKeys))]>)⎇)@}
   @Findex@Parmquote(Fun)@}
  @Imbed(SuppressKeyIndex, undef <
   @Imbed(Keys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(Keys))')@}
   @Imbed(MoreKeys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(MoreKeys))')@}
   @Imbed(YetMoreKeys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(YetMoreKeys))')>)@}
   @Imbed(Nolabel, undef '@Imbed(Funlabel,
			          def <@Label{@Parm(Funlabel)-fun⎇>,
			          undef <@Label{@Parm(Fun)-fun⎇>)')
   @Begin(Defbody)@Tabclear ")
@Form(defcom1 = "@Begin(Undefbody)@Comment(Tabset?)@}
   @t[@Parm(Fun) @Parm(Args, default <>)@Imbed(Keys, def < @key@!@Spreadkeys(@Parm(Keys))>)] @>[@i[Command]]@\
@Imbed(MoreKeys, def <@/@Spreadkeys(@Parm(MoreKeys))
>)@}
@Imbed(YetMoreKeys, def <@/@Spreadkeys(@Parm(YetMoreKeys))
>)@}
   @Send(FunList {@t[@Parm(Fun) @Parm(Args, default <>)@Imbed(Keys,
	def < @key@!@Spreadkeys(@Parm(Keys))>)] @>[@i[Command]]@\@Imbed(MoreKeys,
	def <
@/@t[@Spreadkeys(@Parm(MoreKeys))]>)@Imbed(YetMoreKeys,
	def <
@/@t[@Spreadkeys(@Parm(YetMoreKeys))]>)⎇)@}
   @Findex@Parmquote(Fun)@}
  @Imbed(SuppressKeyIndex, undef <
   @Imbed(Keys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(Keys))')@}
   @Imbed(MoreKeys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(MoreKeys))')@}
   @Imbed(YetMoreKeys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(YetMoreKeys))')>)@}
   @Imbed(Nolabel, undef '@Imbed(Funlabel,
			          def [@Label{@Parm(Funlabel)-fun⎇],
			          undef [@Label{@Parm(Fun)-fun⎇])')
   @End(Undefbody)")
@Commandstring(Enddefcom = "@End(Defbody)@End(Defenvironment)")
@Textform(Comref = '@f["@Parm(Text)" ]@}
    @r[(page @Pageref(@Parm(Text)-fun))]@Findexref@Parmquote(Text)')
@textform(hid = '@w{@t{"@parm(Text)"⎇⎇')
@String(IndexFuns "Yes")
@string(supresskeyindex "Yes")
@specialfont(f1 = helvetica10)
@CommandString(Hemlock = "@f1(Hemlock)")